<%
Class BaseAction_Public

	Private Sub Class_Initialize()
		On Error Resume Next
		'-- 视图设置
		App.View.Locate = True
		'App.View.LayerOut = False
		On Error Goto 0
	End Sub

	Private Sub Class_Terminate()

	End Sub

    Public Sub index()
		AB.C.Print "Public模块 缺省Action"
    End Sub

    Public Sub [empty]()
		AB.C.Print "Public模块 Empty Action"
    End Sub

End Class
%>